home *** CD-ROM | disk | FTP | other *** search
/ Inter.Net 55-1 / Inter.Net 55-1.iso / CBuilder / Setup / BCB / data.z / first.cpp < prev    next >
Encoding:
C/C++ Source or Header  |  1998-02-09  |  969 b   |  28 lines
  1. //----------------------------------------------------------------------------
  2. //Borland C++Builder
  3. //Copyright (c) 1987,1998 Borland International Inc. All Rights Reserved.
  4. //----------------------------------------------------------------------------
  5. //---------------------------------------------------------------------
  6. #include <vcl.h>
  7. #pragma hdrstop
  8.  
  9. #include "First.h"
  10. #include "second.h"
  11. //---------------------------------------------------------------------
  12. #pragma resource "*.dfm"
  13. TForm1 *Form1;
  14. //---------------------------------------------------------------------
  15. __fastcall TForm1::TForm1(TComponent *Owner)
  16.   : TForm(Owner)
  17. {
  18. }
  19. //---------------------------------------------------------------------
  20. void __fastcall TForm1::Button1Click(TObject* /*Sender*/)
  21. {
  22.     Form2 = new TForm2(Application);
  23.     Form2->ShowModal();
  24.     delete Form2;
  25. }
  26. //----------------------------------------------------------------------------
  27.  
  28.